VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsInfoSpecific"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Private m_sName As String
Private m_sArea As String
Private m_sReport As String

Public Property Get Name() As String
    Name = m_sName
End Property

Public Property Let Name(ByVal sName As String)
    m_sName = sName
End Property

Public Property Get Area() As String
    Area = m_sArea
End Property

Public Property Let Area(ByVal sArea As String)
    m_sArea = sArea
End Property

Public Property Get Report() As String
    Report = m_sReport
End Property

Public Property Let Report(ByVal sReport As String)
    m_sReport = sReport
End Property
